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Houston Micro-Computer Technologies, Inc. in the 
presentation of the Software Technical Manual, _ is 
in no way attempting to usurp the information 
contained in the Level II Basic Manual provided by 
Microsoft, It is our desire only, to clarify some 
of the features available in Level II Basic. 
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The purpose of this manual is to provide the assembly programmer with 
documentation of the TPS--80 Level II BASIC ROM entry points and 
provide working examples of their use. Several implicit assumptions 
were made about the needs and background of the readers. First, it is 
assumed that the reader understands and programs in Z80-assembly 
language. Second, it: • is assumed that the assembly programmer is 
primarily interested in writing fast, computationally oriented 
programs. These assumptions have influenced the material included in 
this manual. This manual is not an exhaustive technical program 
manual. Rather, it is a brief, concise description of computationally 
oriented routines in the ROM. Level II BASIC and DISK BASIC functions 
and commands- which are not discussed ii: the text are referenced in the 
memory maps of Appendix A. The entry points discussed in this manual 
are summarized in Tables 2 through 6 and Table 8. It is worthwhile to 
reproduce these tables so they may be kept handy for reference. 

This manual is organized ' in sections which emphasize different aspects 
of computation. Sect_.cn 2 discusses data handling. This includes 
general information about the Level II ROM, notational conventions and 
descriptions of routines which move data. Section 3 is concerned with 
compares. Compares act in the same sense as the Z80 CP (compare) 
instruction. Flags are set as if the data values had been subtracted. 
Section 4 discusses entry points for the arithmetic operation ■( + ,-,* 
and /) for integer, single and double precision arithmetic. Section 5 
is concerned with the BASIC mathematical functions such as LOG, SQR, 
SIN ... as well as the number type conversion routines, CINT, CSNG and 
CDBL. Section 6 discusses data conversion routines (ASCII <-> 
internal numbers) and I/O routines, ( keyboard, video, tape, graphics, 
and line printer ) . Finally, Section 7 discusses logic, which 
extends the USR option. By using variable location, variable 
evaluation and expression evaluation logic it is possible to allow an 
arbitrary number of user exits and an arbitrary number of user 
arguments. 

The appendices contain enhancing information. Appendix A contains 
complete maps of Level II BASIC and DISK BASIC keyword entry points. 
Appendix B discusses detailed tape I/O functions and square wave music 
generation. Appendix C presents detailed tape formats and Appendix D 
presents a test and demonstration program. 

Finally, a word about RST instructions,, These instructions pass 

control to RAM link areas. This manual assumes these link areas have 

been initialized by Level II BASIC. Caution should be used when 
operating under DISK BASIC. 



a 



2^_J?A3A_HMDJULNfl ', . 

This section is concerned with the storage format and manipulation of 
integers, single precision floatinq point, (or simply single), and 
double precision floating point data, (double). Also, two calls can 
handle strings up to 256 bytes in length. 

First, some general aspects of data handling are presented. The Level 
II ROM never "uses the alternative register set. By using EX, AF , AF 
and EXX instructions, registers can be saved during ROM calls. 
Similarly, the IX and IY register are preserved by Level II ROM 
subroutines. The Level II. ROM does use RAM storage. Both stack 
memory and pre-assigned RAM are used. RAM through 42E8H should be 
considered "unavailable for user programs. When the SYSTEM _ command is 
used to initiate execution of orograms, the stack is initialized in 
the I/O buffer area, (SP < : -- 42 8BH) . The user should redefine the 
stack before ROM subroutines are called. 

Certain RAM locations are used extensively by the arithmetic routines. 
The most freoupntly accessed memory acts as an accumulator, and will 
be. referred to as ACC, (see Table 1). The ACC notation will be used to 
refer to RAM storage just as A is used to refer to the _ register 
storage in the Z30 CPU. Most ROM routines expect the ACC to contain a 
specific type of data, (integer, single or double precision). For 
routines that allow different input data types, the type is indicated 
by the contents of address 40AFH. This will be abbreviated NTF 
(number type flag) . The type conventions are: 

NTF = (40AFH) = 2 Integer 

3 String 

4 Single precision 
8 Double precision 

Note that the NTF corresponds to the length of the data. The 
exception is string data where, in most applications, the ACC contains 
a pointer to the string length (1 byte) and string address (2 bytes). 
The RAM storage labled DTEM in Table 1 is used primarily by the double 
precision arithmetic operations. The ACC and DTEM are changed by data 
conversion and string operations. DTEM is not changed by compares, 
integer or single precision arithmetic operations or arithmetic 
functions. Finally, unless otherwise indicated, register values can 
be considered as having been modified by ROM calls. 

Table o describes the data handling routines. The indirect* addresses 
are indexed upward during the move. Data loaded to _ the ACC, DTEM_ or 
the BCDE registers are correctly arranged for arithmetic operations 
provided the originating memory was correctly arranged, (see Level II 
Reference manual pages 8/8 - 8/10) . 
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AJQDRESS 
411DH 



DOUBLE 
LSB 



SUSGLE 



INTEGER 



4121H 


— " " 


4122H 


_„_ 


4123H 


MSB 


4124H 


EXP 



LSB 

MSB 
EXP 



LSB 

MSB 



DTEM 



4127H 
4128H 
4129H 
41 2 AH 



LSB 



LSB 

MSB 
EXP 



LSB 
MSB 
MSB 



412DK 



412EH 



MSB 



EXP 



See the Level II BASIC Reference Manual, pages 8/9 and 8/10 for syntax 
of single and double precision numbers. 
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Unmentioned register contents are changed, 



CALL 
9D7H 

09D6H 

9D3H 

09D2H 

09CEH 



CQUKl 



B 



(0 => 256) 

A 
(0 => 256) 

NTF 
NTF 



09CBH 


4 


09B1H 


4 


9B4K 


. -- 


09BFH 




G9C2H 


4 


0A9AH 


— 



09F4H NTF 
9FCH NTF 
9A4H 4 



TQ £EQM 
(HL) <— (DE) 

(HL) <-- (DE) 

(HL) <-- (EE) 

(DE) <-- (HL) 

(HL) <— (DE) 

(HL) <— ACC 
ACC <-- (HL) 
ACC < — BCDE 
BCDE <— ACC 
BCDE < — (HL) 
ACC <— HL 

ACC <— DTEM 
DTEM < — ACC 
Stack* <— ACC 



fiI££QSITIflUS 

DE < — DE+A 
HL < — HL+A 

DE < — DE+A 
HL <— HL+A 

DE <-~ DE+NTF 
HL <-•- HL+NTF 

DE <-" DE+NTF 
HL <— HL+NTF 

DE < — DE+4 
HL <-- KL+4 

HL <— KL+4 

HL <-- KL+4 

BC,HL unchanged 



HL <-~ HL+4 

NTF <— 02 

BC,DE unchanged 



A,BC f HL unchanged 



*To retrieve the value, use POP BC followed by POP DE in the calling 
program. If the accumulator was an integer, DE will be the integer 
value. 
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This section is concerned with logic which compares numeric and 
character values. The logic is designed to be similar in philosophy 
to the compare (CP) instruction. That is, the Z and S flags 



re set 
to express the result of a subtraction, but the subtraction is never 
actually performed and the original values compared remain unchanged. 
Table 3 summarizes the compare logic. 

The first compare can be executed by CALL 1C90H or by RST 18H. This 
compare sets or resets the Z flag as if the subtraction HL-DE had been 
pprformed. KL and DE are treated as unsigned (positive) integer 
constants. • This logic is best suited for use where HL and DE are 
addresses. 

The compares 2) through 6) are self-explanatory. They all set the Z 
and S flags as a result of the indicated subtraction, (compare 3 can 
be considered ACC-G) . 



is related to the SGN function (see section 5) . Using it 

in which case the machine is reinitialized 

or 1 



= 3 is an error, 



Compare 3) 

with NTF 

into BASIC. All of these compares set the A register to FFH, _ _ 

provided the subtraction would result a negative, zero ox positive 

respectively. 



7) can be executed by CALL 25D9H or RST 20H (in Level II 
This compare test the NTF (Number Type Flag) as indicated. 



and RST 10H, (see compare? 



and 9 of Table 3) , are used in 



Compare 
BASIC) . 

RST 8 - -_ _.. . . . . 

scanning strings, mostly in conjunction with the BASIC interpreter. 
First, the RST 10H logic is displayed in Figure 1. This logic begins 
by incrementing HL and checking characters at (HL) . It increments 
through spaces, (" "), and control characters with value 9 and^lO ( 
carriace returns) . The routine returns C set; when A = (HL) contains a 
numeric ASCII character. Z is set for A= (KL) = Zero (BASIC 
end-of-line) or ":" (BASIC end of statement). 

RST 8 compares the character pointed to by HL, with the character 
located at the return address, ((SP)). If they are not equal, a SN 
ERROR results and the machine is reinitialized into BASIC. If they 
are eoual the return address is incremented (so the return by-passes 
the test character) and control is passed to the, RST 10H Logic. The 
RST 8 logic is used by BASIC to check for expected characters, such as 
"(" in SIN(X) , and then find the next non-blank character, (the RST 
10H logic) . 
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CALL 


£__iEABJ_ 


1) 


1C90H 
(RST 1811) 


HL-DE 
(unsigned) 


2) 


0A39H 


HL-DE 
(signed) 


3) 


0994H 


ACC 

( integer , single 
double) 


4) 


OAOCH 


ACC-ECDE 

(single) 


5) 


CA7BH 


DTEM-ACC 

(double) 


6) 


0A4FK 


ACC-DTEM 
(double) 


7) 


25D9H 
(RST 20 H) 


NTF-3 



must 

A used. S and C flags 
not well defined. 

A = 00 if = 
A = 01 if > 

A = FF if < 1 

A as from 0A3 9H. 
Error if NTF = 3 
(string) . 

A as from 0A3 9H. 



A as from 0A3 9H. 
Uses all registers* 

A as from 0A39H. 
Uses all registers. . 

A = NTF-3 

Z St S set accordingly 
C set if NTF isn' t =8 
C is reset if NTF =8 



8) 1C96K (HL)-((SP)) See discussion. SN 
(PST 8) Error if not =, else 

go lD78H,(see below). 
BC,DE, unchanged. 

9) 1D78H (HL) See discussion. BC, 
(RST 10H) DE unchanged. 

HL incremented. C set 
for numeric. 



* No registers are modified except as indicated. Also, no RAM 
locations are modified. Test 1-6 set or reset Z - h S accordingly. 
Test 2-6 set or reset C to S. 



A 



> 



Ve-5 



"Xnci HL 



V 




v/ 




v/ 






M'KTVl 



Ficn;.r.e_J. 

CALL ID78H, (or RST 10H in Level IT BASIC) . 

This loqic reads through spaces and control characters 9 and 
1C to return C set for nuraeric characters. 
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Calling arithmetic routines 
4. It is up to the 



is straight forward, as depicted in Table 
tvop -n<-7 i-h-,f- <-k„ USG I n ' ake SUrc tliat the irj t-ut agrees in number 
tvop in Lha t t K Lhe co ^ct routine is called. if conversions from one- 
type to another are necessary, refer to Section 5 for functi. 



CSNG cr CDBL. 



.ons CINT, 



Input to the arithmetic c 
the 



after the CALL is executed^"' 1 — • ""-^ rGgarded as ^predictable 



lr 



results of each computation are stored 

this aif inteorr su-w-o ,/f "T^ type With the in P ut - Exceptions to 
intege + -*!% * wMcVreturr ^ /"^returns single float, and 
NTF to c- rr i- f : h leturn single float upon overflow. Check the 

-Mt co see if conversion to single has occurred. 



If single or double exponent overflow occur*? nr vc-vr ri,-„,- -« 
" e ™ -ndition will Lsult in tn"' "eSul^Lat or.* 1 "" 6 0CC " t8 ' 

tmally, the routines use stac 
user. 



space v/j 



into BASIC, 
ich must be provided by the 



T AB_LE_ 4_ AE I TUil E T J C _ X)£ERATLI C>NS 
Operators (op) = +,-,*,/ 



/ 



INTEGER 
BE op EL 



0SD2H "0BC7H 03F2H 
(single out to ACC on overflow) 



SINGLE 

BCDE cp ACC 0716 H 

DOUBLE 

ACC op DTEN 0C7 7H 



07 1.3 H 

0C70H 



0G47K 

0DA1F 



2 4 90H 

(single out) 



8A2H 
0DE5IJ 



in single flcat to ACC with NTF <— A 



and integer divide, /, result 
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This section presents the Level II BASIC arithmetic function entry 
points, (see Table 5) . Other BASIC keyboard entry points will be 
discussed later or can be found on the memory map, (Appendix A) . 
Complete descriptions of the arithmetic functions can be found in the 
Level II BASIC Reference Manual, Chapter 7. The user must be _ careful 
to supply arguments within the allowed range or an error will occur 
and the machine will be initialized into BASIC. Also, it is necessary 
for the user to supply the correct number type since rr.any of the 
routines do not check the NTF. 

The functions CINT, CSNG and CDBL are useful in converting number- 
types for use in arithmetic operations or other functions. 

Also included in Table 5 are routines which change the sign of integer 
or float numbers, ( chg.sgn. ) . 
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CALL 


LOG 


809H 


SQR 


13E7K 


EXP 


143 9 H 


COS 


15 41 H 


SIN 


1547H 


TAN 


15A8H 


ATAN 


15BDH 


ABS 


977H 


CINT 


0A7FH 


CSNG 


0AB1H 


CDBL 


OADBH 


FIX 


0B26H 


INT 


0E37K 


RND 


14C9H 


SGN 


9 8AH 


chg . sgn. 


0C51K 


chg . sgn. 


9 82H 
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ACC single . ACC single 



Same as incut ACC,NTF=2,4 or 8 

[!L,ACC, NTF = 2 

ACC, NTF -4 

ACC, NTF- 8 ' 

ACC, KTF =2 or 4* " 
ii it 

ACC, KTF =4 

ACC- -1,0,1 ,NTF-2 

HL, ACC, NTF =2 HL 

ACC <-- -ACC ACC, NTF-4 or 8 

BCDE unchanged. 



*NTF = 2 if amplitude < 32767 



This section is concerned with the conversion of numbers to strings 
(and vice versa) and I/O to external devices. It is divided into four 
parts; data conversion, keyboard input, tape I/O, general output 
(tape, video, and line printer) , and graphics. Additional detail on 
cassette I/O, along with cassette tape formats can be found in the 
appendicies. A summary of the calls discussed below can be found in 
Table 6 . 

Data C onversion 

CALL OFBDH converts the ACC, NTF= 2 , 4 or 8 into an ASC II character 

string whose starting address, HL, is about 4130H. In performing the 

conversion, the contents of the ACC and DTEM are destroyed. The ASC 

; II string is terminated with a zero byte. 

CALL'S 0E65H and 0E6CH convert an ASC II character string into a 
number stored in the ACC and fixes the NTF, (DTEM is destroyed) . CALL 
0E6.5H stores such that NTF = 8 and CALL 0E6CII stores the number type 
with the least length compatible to the input string. The rules for 
the string formats are those used in Level II BASIC. -The ASC II 
character string' converted by these routines must be terminated by a 
comma or zero byte. (zero bytes are inserted by keyboard input 
routines 0361H and 1BB3H discussed below) . 

These data conversion routines suggest an easy subroutine to input 
single or double precision immediate values to the ACC and NTF, (see 
Example 1) . Notice how the subroutine retrieves the string address 
from* the return address. Eventually, control is returned to the 
statement after the DEFM, 



CALL LOAD 

DEFM '1.23 456,' ; immediate value 



LOAD POP HL 

; convert string to ACC + NTF 



CALL 


0E65H 


INC 


HL 


PUSH 


HL 


RET 
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XALI. 



J3H2PIU1 



.JREUX. 



Data conversion 
OFBDH 

0E65H 



0E6CH 

Kejy_b_Qard Input 
05D9H 



036 1H 

(see warning; 



1BB3H 

(see warning) 

2.BH 



00 49R 



HL <— string 
address 

ACC,NTF = 8. 

HL <-- delimiter 

address 



ACC, 

NTF = 2, 4, or 8. 
HL < — delimiter 
address 



HL unchanged. 
B input length. 
Input to video. 

HL - (40A7ID-1 
input string 
terminated with 
zero. 



ACC f NTF = 2,4 or 8 



HL < — string address. 
String terminated 
with zero byte or 
comma 

HL < — string address 
String terminated 
with zero byte or 
comma „ 



HL Buffer address, 
B Buffer length. 



(40A7H) Buffer 
address. 
FOH Buffer length, 



Outputs "? " with CALL 032AH and then 
jumps to 03 61H. 

A - ASC II of keystroke 
A = no keystroke 

A = ASC II of keystroke (waits for 
keystroke) 



Tape, Ijjuout L_oaic 
021 2H 



2 96H 
23 5H 
01F8H 



Use A as cassette select latch and store^it 
at 37E4H, (A = for cassette #-1 and A - lbs 
for cassette #-2) . 0212H also turns on 
cassette. BC , DK & ML unchanged. 

Read until sync byte, A5 , H f found'. 
BC,DE & HL unchanged. 

Read next byte into A. BC, DE & HL 
unchanged. 

Turn off cassette. BC, DE & HL unchanged. 
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0212H -^see Tape Input Logic-- 

0287H Write leader and ASH sync 'byte. 

DE and HL unchanged. 

026 4H Write byte in A to tape. 

BC f DE and HL unchanged. 

01F8H -see Tape Input Logic-- 

Ge neral Output 

28A7H HL string address (delimiter 00 or 22H byte) 

(409CH) = -1,0,1 for tape, video, or line 
printer 

032AH .Displays byte in A. (409CH) -1,0,1 for tape, 

video, or line printer 

0033H Display byte in A to video. 

Graphics 

GRAPH . • Input: B = X coordinate; 0-127 
(See Ex. 7) A = Y coordinate; 0-47 

H = 00H for POINT 
80H for SET 
01 K for RESET 
Output; If POINT then ACC = 0000H for off 

= FFFFH for on 
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j.l^ most I- wc .ui rouuii.v.' ai • at U5DS , OoolH and UB3H \ See Table 
6} . The most fundamental of these routines is at 05D9H. This routine 
accepts keyboard input as if INPUT were being executed in BASIC. The 
keystrokes are reflected on the video. The buffer address is input by 
HL and buffer length is input by register B. Keyboard input exceeding 
the buffer length is ignored. After a carriage return, control passes 
to the calling program with HL the original buffer address and B the 
length of the input string. 

The next routine is 0361H. This routine uses the buffer address 
stored at 40A7H, HL <— (40A7H) , and fixes buffer length, B <-- FOH. 
A CALL 05D9H is then executed (see above) . Upon return, the input 
string is terminated with a zero byte, (necessary to convert ..SCII — > 
ACC) . 

Warning! In Level II BASIC, 

the buffer area is 41E8H=( 40A7H) . If you initiate your program via 

SYSTEM, the stack pointer is set SP < — 42S8H. So please reset the S 1 " 

out of the buffer area or redefine (40A7H) before input. 

Warni ng! XQ. WS BASIC, 

CALL 0361H will CALL DOS code via address 41AFH. The purpose of this 
call is unknown and may affect: performance. To overcome, use Level II 
or set (41AFH) = C^H, (RET) . 

Finally, the most useful routine is 1BB3H. This routine displays the 
prompt "? " and passes control to 0361H. 

An example of keyboard input and conversion is most useful at this 
point. Suppose it is necessary to input two single precision 
variables, analogous to: 

INPUT X,Y 

Assembler code to do this is given by Example 2. 



>j 



Jote the use of RST 10H to skip past the delimiter and find the next 
non-blank character. The CALL 0E6 9H is quite forgiving about what 
character is used as a delimiter. Any given character that does not. 
make sense as a part of the number causes the ACC to be fixed, and 
control to be returned to the user. Also, recall- that after RST 10H, 
the user can check the C (carry) flag to see if the next character i 



.. o 



numeric. 



The last keyboard scan routines discussed, returns only one byte in 
register A. CALL 002BH returns the ASCII representation of the 
current key being pressed. A=0 indicates the keyboard is clear. CALL 
0049H does the same, but waits until A does not equal 0. It is 
possible to disassemble the code beginning at 2BH and learn how to 
intercept the keyboard driver routine via its address in the Keyboard 
DCB (see page D/.l. of the Level II BASIC Reference Manual) . By putting 
a delay routine in the intercepting program, keyboard debouncing can 
be achieved. Using the delay routine at 60H (see Appenidix B) gives 
the ASM program in Example 3. Note that if the system is 
reinitialized, MEMORY SIZE? appears, then the debounce routine must be 
reloaded. 
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EXAMPLE 2 Input X,Y in Assembler 



Redefine SP out of buffer area if using SYSTEM. 

prompt and Keyboard input 
locate 1-st character (see Section 3) 
convert X to ACC. 
save string pointer 
CSNG 

destination address 
save X, (see Section 2) 
restore string pointer 
locate next character, 
convert. Y to ACC 
CSNG 

destination address 
save Y 



CALL 


1BB3H 


RST 


10H 


CALL 


0E6CH 


PUSH 


HL 


CALL 


0AB1K 


LD 


HL,X 


CALL 


9CBH 


POP 


HL 


Ro i 


10H 


CALL 


0E6CH 


CALL 


0AB1H 


LD 


HL,Y 


CAI-jJ-j 


09CBH 



X 

Y 



DEFS 4 
DEFS 4 



END 
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ORG 


4 016H 


DEFW 


DEBNCE 


ORG 


7E00H 


DEBNCE CALL 


03E3H 


LD 


H, A 


LD 


BC r 02Z 


CALL 


6 OH 


LD 


, A,H 


RET 




END 





'. location of keyboard driver address 
; load new driver address 
; high memory 
; call keyboard driver . ' 
; save keyboard input 

u essr i /inn second delay 
BC r 02AFH ; count for 1/1UU btu 

; delay loop 

; restore keyboard input 
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It may also be useful to understand how the keyboard RAM is used The 
keyboard forms a matrix. When a key pre^ed^ the *™ contents, 
the matrix determine memory address and m Y happens by 
respectively. From a programming view, one can see ^ R 

running the program of Example 4. Be su to ^ being 
during the PRINT.) Also, if PEEK (14 463) , jnen (14 | 91)< 
pressed, including SHIFT. To exclude SH1F1, use pllk u^ 

10 FOR 1=0 TO 7 

20 AD = 14336 "+ 2 I 

3 PRINT AD, PEEK (AD) 

40 NEXT I 

5 PRINT 

60 IF INKEY$="" THEN 60 ELSE 10 



u- , io,w S1- is possible to detect multiple key . entries. 

Jsing this knowledge, if is po^io-it V ertic]e, horizontal or 

.or example, the following ^°^^^ 1 \ r %^' left arrow, down arrow, 

aiaqonal lines using the keys for right cuow ±ei.i 



U 

F 

diag 

and up arrow 



10 X=6 4: Y=24: 

20 I=PEEK(14400): IF 1=0 THEN 20 

25 DX=0: DY=0 

3 IF I AND 8 THEN DY =-1 

4 IF I AND 16 THEN DY=1 
50 IF I AND 32 THEN DX=-1 

6 IF I AND 6 4 THEN DX=1 

7 X=X+DX: Y=y+DY: SET(X,Y) 

80 GOTO 20 

in particular,' note that the use of "AND" allows for the determination 

of multiple key entries. 



Taee_J/P 



J 

Entry points for the tape.I/O logic a« given in Table 6 The jise of 

these entry points is str axghtf ol ,ard and no ad dit 10 a cheive 

given here. Appendix B discusse s how to or the I/O port ^ 
square wave music. Example 6 demonstrates ^ formats for 

ta^ ^i^n^h h C^?l C ^^«, SI and°BDTASM A commands. 



Note 

That is, CALL 235 II 

of valid data or, CALL0235H may 

Also data is transmitted bit by bit 



to know when to stop reading. 



that th e tape I/O «q S i«S b the ? s« th/rieiuter -after th. end 

never return control to me ubtt. 
Each bit is preceeded by a 
transmitted Die uy uil. ta en u £• hl p delays in 
timing bit. Thus, it is acceptable to introduce apprec i^l« flay- ^ 
the o 9 ut P ut. This would all .ow computatio " ^ ^c p«£or ^ ^ 

output or input. Also note that no interrupts, 
I/O, so turn off the clock 1 



EiAi'ii?ii^-Jr^p_a^j3j^--Zi-oaJ^fl 1 



00010 ORG 
00 02 READ LD 

0003 CALL 

000 40 CALL 

00050 LD 

6 LD 
000 90 LI CALL 

00120 LD 

0013 INC 

00140 DEC 

00150 LD 

00160 OR 

00170 JR 

0180 CALL 

00190 JP 
00200 WRITE LD 

00 210 CALL 

220 CALL 

00 23 LD 

00 2 40 LD 
00 2 50 L2 LD 

00 2 80 CALL 

00310 INC 

00 3 20 DEC 

0033 LD 

003 40 OR 

003 50 JR 

0036 CALL 

00370 JP 
00 3 80 END 



4C90II 

A,0 
212H 
2 96H 
HL,4CE0H 
BC,3 31FH 
0235H 

(HL) r A 

HL 

BC 

A,B 

C 

NZ,L1 

01F8H 

1A19H 

A,0 

0212H 

2 87H 

1IL,4CE0H 

BC,331FH 

A, (HL) 

26 4 H 

HL 

BC 

A,B 

C 

MZ , L2 

01F8H 

1A19H 



Under System /196 00 
will stop the program) 
written to tape. 



;19600 

; DEFINE DRIVE 

; FIND SYNC BYTE 

; DEST ADDR 196 80 

; # BYTES I/O 13087 

; READ ONE BYTE 



DISABLE DRIVE 

RETURN TO BASIC 

19630 

DEFINE DRIVE 

WRITE LEADER 

ORIG ADDR 

# BYTES I/O 13 87 

OUTPUT BYTE 



DISABLE DRIVE 
RETURN TO BASIC 



will cause 13 87 bytes to be 
/1 96 3 will cause the same 



read to RAM (Reset 
13087 bytes to be 
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.GenexiU^JlliLtpuJ; 



CALL 2 8 
example 
charact 
the co 
with HL 
delimit 
positio 
by the 
Line pr 
with ta 
user to 
not tra 



A7H prov 

of its 
e r s t r i n 
n tents 
, and th 
e r . Up 
n on the 

Level 
inter co 
pe , CALL 
' CALL 02 
nsmit th 



ides the most 

use is given 

g to the cass 

of 4 9CH. Th 

e string must 

on return, fo 

line. When 

II BASIC Ref 

ntrol charact 

2 8A7H only r 

12H, 0287H an 

e string deli 



general purpose ou 
in Appendix D. This r 
ette, video or line pr 
e address of the chara 

be terminated with a 
r video, 40A6H contain 
using video, the contr 
erence Manual, pp. C/l 
ers are given on page 
eplaces Call 26411. I 
d 0IF8H appropriately, 
miter character. 



tput ro 
outine w 
inter, d 
cter str 
zero or 
s the cu 
ol chara 
, will b 
10/3. 
is sti 
CALL 



utine. An 
ill output a 
epending on 
ing is input 
22H (quote) 
rrent cursor 
cters given 
e effective. 
When used 
11 up to the 
28A7H does 



CALL 032AH performs the same function as CALL 28A7H, except that only 
.the character stored in the A register is transmitted. CALL 0033H is 
the same as 032AH except it is for video only and does not store the 
line cursor position in 40A6H. 

G raphi cs 

Use of the graphic logic is complicated by the fact that the logic 
deciphers the BASIC argument list. This is best overcome by setting 
up parameters as' indicated in Table 6 and executing CALL GRAPH where 
GRAPH as is given in Example 7. This approach bypasses the tests tor 
bounds on the X and Y coordinates. Thus it is up to the user tobe 
sure thev are within 0-127 and 0-47 respectively. The routine GRAPH 
sets up HL to point to a dummy string, ");" to satisfy a RST 8 at the 
end of the graphics logic. 



EX A H ELE_2_Gr aplLJLybf out_in e 



10 




ORG 




2C ENTRY 


CALL 




30 




LD 




40 LOOP 


LD 




50 




PUSH 




60 




LD 




70 




CALL 




80 




POP 




90 




DJNZ 




100 


STOP 


JR 




110 


/ 






12 


/ 






130 


GRAPH 


PUSH 




140 




PUSH 




150 




LD 




160 




JP 




170 


LGRPX 


DEFW 




180 




END 




(Th: 


is prog 


ram pi o 


ts 



0700011 

01C9H 

B,40 

A,B 

BC 

H,80H 

GRAPH 

BC 

LOOP 

STOP 



HL 

BC 

HL, LGRPX 

0150H 



• CLS 

•INITIALIZE X COORDINATE 
;FIX Y COORDINATE 
; SAVE X COORDINATE 
; PERFORM SET FUNCTION 

; RECALL X COORDINATE 
/DECREMENT X COORD. & 
REPEAT 



;PUSH INDICATOR 
;PUSH X COORDINATE 



; STRING") ;" 



3B29H 

ENTRY 
a diagonal line from (40,40) to (1,1)) 



7. EXTENDING THE USR O PTION 

It is easy to provide additional flexability in the USR option. For 
an example of what the possibilities are, consider a program which 
must compute 

C <— A * (B+A) 

where A,B,and C are matrices (see Level II Reference Manual p. 6/4-6). 
The program could be coded in BASIC as follows: 

100 DUMMY=USR ADD (B,A) 'B = B+A 
110 DUMHY=USR MULT (C,A,B) 'C = A*B 

Specifically 'the possibilities are, (1) to allow any number of 
arbitrarily named user exits, (2) to allow any number of arguments in 
the argument list, and (3) to pass arguments by address, (hence the 
value of the argument can be .changed by the object program) . This 
section will present a program which allows this to be done, (see 
Example 8, the DEFUSR program) . Also, various alternatives will be 
discussed The DEFUSR program will not be discussed in detail except 
to note that the data loaded between 4150H and 41BDH is destroyed when 
the machine is initialized. Hence, if MEMORY SIZE? appears, DEFUSR 
must be reloaded. Also, DEFUSR can only be used with Level II BASIC 
since it interfers with the ROM-DISK-BASIC linkage, (see Appendix A). 

Here is how to use DEFUSR. Before a user program is called, its 
location in memory must be defined with the DEF statement. 

The syntax of the DEF statement is: 

DEF Name = Address 

For example: DEF MULT = 30000 

DEF ADD = 14000 * 2 



Names are arbitrary length alpha-numeric strings terminating with 
soace or "=". DEF need only be used once for each name. Names can be 
defined any number of times and only the latest definition is 
effective. For addresses above 32767, use: 

desired address - 65536 

The only restrictions with DEF are that the names and their addresses 
are stored in a table one hundred bytes long with no overflow 
protection (see statement 140) . 
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00 UK) ORG 41BBH J DISC- BASIC LINK IN RUN T.N.IT . 

(,0 o'/() JP RESET 5 GO TO RESET TABLE 

(,30 ORG 413B1! J DISK BASIC LINK ON DEE 

040 OR BLR , ^, ,,..„. 

050 ORG 11A9H ; DISC BASIC LINK ON UbR 

060 OP BSR 

070 ORG 7EF0H ', 32480 

(l 80 ; 

090 J RESET TABLE TO NO ENTRIES 

ttlll RESET LD IXLTABLEM 5 ADDRESS OF ' TABL E+i ' 

0012n LD . (TNEXT)vIX J RO INTER 1-UR NEXf I:: Nf R^r 

0130 RET 

0140 TABLE DEEB 

00 3 SO DEFS 10 JTABLE 

0:160 TNEXT BEEN TABLE * NEXT VACANT FN TRY. 

17 i 

0.1.8 5 UPDATE TABLE FROM DEE COMMAND 

00 190 I 

020 DEE CALI SCAN 5 LOOK OR NwME IN TABLE- 

0710 PUSH ' AE ;;BAVE FLAG 

770 I D 13 y C ? BASIC SIFTING LENGTH 

0?'4 EX DEyllL ?DE GETS BASIC » III... GETS TABLE 

00'Ao ' CALL 09D7H % MOVE SIRING FROM BASIC 10 FABLE 

0? ,:: ;o EX DEyHL SHE GETS BASIC y DE GETS TABLE 

0260 PUSH DE 5 PUSH TABLE ADDRF3S POINTER 

0270 DEC HI... 

'.'B0 ROT 1011 ; SEARCH FOR "-" 

00290 rbi S J CHECK FOR "-" & FIND NEXT CHAR, 

3Q0 DEEB 2.1.3 5 BASIC 

0310 ' CALL 233711 ; EVALUATE EXPRESSION* 

370 PUSH HI... 5 SAVE BASIC POINTER 

44 CALL 0A7FH JOINT TO HL 

003-HJ EX DEyllL » DE OF f S UBR ADDRFSS 

oot-.i) pop ul. ; basic pointer 

"460 pop IX LIABLE ADDRESS POINTER 

037 LD (IX) ^E 5 LOAD ADDRESS TO I ABLE 

0380 INC IX 

0390 I D <IX>*D 

OOT00 INC IX 

0'! 10 ID <.IX)v0 

420 '.INC IX 

0^30 BOP AF J FLAG FOR NO ENTRY FOUND 

440 OR A 

0^,0 FT T N7 J GO IF FNTRY WAS AN UPDATE 

0460 I D (INEXTCvIX J UPDATE TABLE END POINTER 

070 RET 

480 5 . 

0490 ;LOOK UP STRING AT HL S^ TABLE, (STRING DELIMIT F.R IB 

0500 i SPACE, "™" OR "(" >, 

033 LIF FOONDt DE POINTS TO TABLE NAME 

0320 ; IX POINTS TO TABLE ADDRESS 

330 5 A ■■■■■■ Fill 

00340 LIE NOT FOUND: EE^(TNF.Xf) 

330 ; A •■ u 

00360 OLETHER CASF3 C ==■■. STRING LENGTH 
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tAm-ii'i,.-., a cont u 



0057 
05130 

59 1) 
060 

on Aio 

620 
063 
06-10 

650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
730 
07T0 
0750 
0760 
0770 
0780 
0790 
080 
310 
820 
830 
8 -t0 
0350 
0860 
0370 
0880 
390 
090 
0910 
0920 
0V30 
09TO 
950 
0960 
0970 
0980 

0990 

1 
1 :l 
0:1 020 
01030 
.1 *l 
01050 
010 60 
0:1 07 
01080 
0.1 9 
1 1 
:l 1 .1 
:l 1 7 



1 JNCHANGED 



>CAN 



BL1 



NT!?!. 



ITER 



HMTGI 
LBI...3 



PE:i: ; 
RST i 
PUSH 
ID 

:i:nc 

INC 

I I.) 

CP 

JR 
CP 

jr 

CP 

JR 

POP 

LD 

PUSH 

PUSH 

I...D 

LD 

CP 

JR 

INC 

INC 

DJNZ 

PUSH 

POP 

LD 

OR 

JR 

POP 

POP 

1...D 

RET 

POP 

LD 

INC 

OP 

JR 

LD 

RST 

POP 

JR 

I. I.) 

RET 



♦BACK UP POINTER 

J FIND NEXT CHARACTER 

7 SAVE POINTER 



JNEXT CHARACTER. 

;co ON SPACE 

J CO ON BASIC "-" 



HI.. ; 

10H. 

ML 

CvO 

C 

ML 

f\y <HL) 

32 

ZvLBLZ 

213 

Z J...BL2 

-1 

NZvl Bl.,1 »GC) MOT " <" 

hi ;ee:sujre basic pointer 

delfabi e list table". address 

i-il j origin a! hi... 

de jnext taable address 

BrC. i BASIC STRING LENGIH 

Av(DE) H OAD TABLE CHARACTER 

<HL) ; COMPARE BASIC CHARACTER 

NZyNMiCH SCO NOT EQUAL 

I-IL 

DE 

ITER 5 NEXT CHARACTER 

DE J POSSIBLE MATCH* CHECK TABLE 

IX 

A v < IX < 2 > 

A ITEST <I')E3 2.;< 

NZ« NOTCH ?GO BAD TABLE ENTRY LENGTH 

DE » TABLE NAME: ADDRESS 

HI... * ORIGINAL BASIC POINTER 

AvOFFH 

; RETURN ON MATCH 
DE ; ADDRESS PREVIOUS TABLE ENTRY 

Av(DE) ;i GOK FOR NEXT TABLE ENTRY 

DIE 
A 

MZJ.BL.3 ;go :rr <de-j> not zero, 

lll...y (TNEXT) 

1811 JCOMPARE (TNEXT) DE 

HI ; REST O! <E EYiSIC POINTER 

NZvNTBL ;NEXT I ABLE ENTRY 
Av 



CHIOS LOGIC EEIPLACES THE ROM OSE CODE, 

JIT LOOKS UP HIE 08R PROGRAM ADDRESS WITH CALL. SCAN. 

;:n then stuffs the argoemeni addresses to that E'Rogram 

; ADDRESS (HENCE AGEOEHITH 8 CAN ONI I BE SIMPLE VARIABLES). 

?A RETURN ADDRESS IS PUSI lE'l") AND CONTEOI IS PASSED TO THE 

HJ8R AT THE ADDRESS AFIEE I HE LAST ARGOEMENT ADDRESS. 
"t 



POP 
INC 



DE 

ML 



HLCPE OUT RETURN ADDRESS:? 



31- 



EXAMPLE 8 cont d 



(J VI 30 




CALL 


SCAN 


?CET USR ADDRESS 




1 I.TO 




OR 


A 






0.1. 1 5 (i 




JP 


2. •1997: 


II J NO TABLE ENTRY :iS SN E 


RROR 


1. 1.60 




LL> 


E y < IX > 






Oil 7 




L D 


d^ci:x+ 


1) 




01 J 80 




PUSH 


DE 






0119 




POP 


IX 


> USER ADDRESS 




01200 




• ID 


P. r 






0:1.210 




ADO 


lll.xBC 






01220 




dec: 


III.. 






01230 




EST 


1011 


5 FIND " ( " 




012^ 




RBI 


8 


? CHECK "(" 




01250 




DEFB 


2811 


J ll ,; h 




01260 


NX! ARC, 


CAIJ... 


260 DM 


1 UAR l.ABI .. E FINDING LOGIC 




01270 




LD 


< ix > v e: 


J SAME ARGUEMENT ADDRESS 




012UU 




INC 


TX 






0:1290 




L.D 


< IX ) v D 






0.130 




INC 


I X 






01310 




DEC 


HI.. 


J FIND "y" 




01320 




EST 


1011 






0133 




CP 


'VI 






0:1 3 '10 




OR 


NZvOUT 


> no " » " 




01350 




REST 


J OH 






01360 




OR 


NXTAEG 


?next arguement 




01370 


OUT 


RST 


8 


; CHECK FOIa- r ) " 




0:13 BO 




DEFB 


29H 


? " ) " 




01 390 




PUSH 


HE 


5 PUSH POINTER 




0110 




L..D 


HI., v 089 OH 




01211 




PUSH 


III.. 


JPUSH RETURN ADDRESS 




3/LrO 




UP 


< IX ) 


J JUMP TO USER 




01-430 




END 









To call an assembler program, use the syntax- 
Variable = USR Name (argument variables) 

As with the standard USR exit, Variable is assigned the value left in 
ACC and NTF by the user program. Using the previous DEF example, 

X = USR MULT (C,A,B) 

causes the USR program located at 30000 to be executed. Only simple 
variables or array elements which have been previously defined can be 
passed in the argument list. 

Finally, the. USR program must be correctly designed to receive 
argument addresses and control. In the MULT example, the routine 
should be coded: 

ORG 3 0000 

CX DEFW 

AX DEFW 

BX DEFW 



-•executable code- 



That is, control is not passed to location 30000. Rather, the address 
of each argument in the argument list is loaded beginning at 30000 and 
control is passed to the address after the last address load point. 
For an example of use, suppose C were an integer. To get the value of 
C in KL f use: 



LD 


IX, (CX) 


LD 


L, (IX) 


LD 


H, (IX+1) 



The advantages and disadvantages of passing argument addresses are: 

1) By changing the value at the address passed, the USR program 
changes the value of the argument as seen by the BASIC program. 

2) The receiving program can process any type of data by looking up 
the associated number type. (See Table 7 for data organization.) 
Passing values and number types would be an alternative. Another 
alternative would be to convert and pass numbers in double precision. 
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NAME 



DATA( single element ol array) 



I 






-?> High Memory ^ 



-^ 1-st character" of variable name 

-^ 2-nd character of variable name, or zero. 

-> NTF = 2 integer 

3 string 

4 single precision 
8 double precision 



DAIAl 



<~ 



DATA ELEMENTS 




1 

2 
3 
4 
5 
6 
7 



LSB (1) 

MSB 



MSB 
EXP 



MSB 
EXP 



N. 



Byte Xritje^L£X Single Double String 
LSB(l) LSB(l) 



ARRAYS 
Format 



DIM X{5,7) 

Ex. (HEX) 



LENGTH (J) 



LSB 



MSB 



String MSB 



Size(2; 



Adrs. 



# Dimensions 



LSB 



Value 1-st 



MSBJ Dimension 



LSB 
MSB 



Value Last 
Dimension 



65 
00 
02 
08 
00 



06 
00 



High ' 
Memory 



_/ 



1st Data 
Element (3) , (1) 



(1) Address returned by CALL 26 0DH. 

(2) Size = # bytes used by # Dimensions, Dimension values and data 
elements. 

(3) Data elements of the array are ordered by varying the first index 
the fastest. For example, the ordering is X(0,0), X(1,0), X(?,0) 
X(5,0) , X(0,1) , X(l,l) , ..., X(5,7) . 
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4) Passing values with number type conventions makes for the easiest 
loading in the user program. 

5) Passing values allow arguments to be expressions. Passing 
addresses require simple variables or array elements, (array A is 
really array element A(0,0,...)). 

There are several useful routines related to argument passing. These 
routines' are summarized in Table 8 and facilitate the DEFUSR program 
and possible variations. 

The variable location and creation logic at 260DH returns the address 
of the variable (ASCII string) pointed to by the HL register pair. 
After execution, HL points to the character following the last 
character of the variable name. If a variable cannot be found, it is 
created. 

£e_ careful, variable creation may caus e the dynamic 

relo cation of other variables or arrays. 

This will cause previously acquired variable addresses to be 
questionable. The variable address is returned in the DE register 
pair. For NTF = 2 , 4 or 8 , (integer, single, or double precision) the 
DE address returned is that given by the VARPTR logic in BASIC, (see 
Reference Manual 8/8-8/11 and Table 7). For NTF = 3, (strings), the 
DE address returned points to the first of three bytes which contain 
the string length and string address. 

The variable to ACC and NTF logic located at 2540H returns the value 
of the variable (ASCII string) pointed to by the HL register pair. 
After execution, HL points to the character following the last 
character of the variable name. If a variable cannot be found, it is 
created and given a value of zero. The value is returned in the ACC 
and NTF. For NTF=3 , (strings), the ACC contains the address of the 
first of three bytes which contain the string length and string 
address. 

The expression to ACC and NTF ioqic located at 2337 H returns the value 
of the expression, (ASCII string terminated with delimiters ")", ",", 
":", or zero byte). On execution, the HL register pair points to the 
first character of the expression. After execution, HL points to the 
delimiter. In the case of string expressions, the ACC contains the 
address of the first of three bytes which contain the string length 
and string address. Note, CALL 23 37H expects the machine to be 
formatted for BASIC RUN mode. Also, CALL 2337H makes significant use 
of the stack. 
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1) Variable Location and Creation: CALL 260DH 

Input HL address of 1-st character. 

Output HL updated to character following last 
character of variable. 

DE address of variable. 

2) Variable -- > ACC, NTF : CALL 2540 H 

Jnout HL address of 1-st character. 

Outpjrt HL updated to character following last 
character of variable. 

ACC, NTF value of variable. 

3) Expression — > ACC, NTF: CALL 2337H 

Input HL address of 1-st character. String must 
terminate with appropriate delimiter; 

") ", zero byte , " ," or " : " are 
satisfactory. 

Output HL address of delimiter. 

ACC, NTF value of expression. 

(See text for discussion) 
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£_JLJE_JE_ii_BL-I_.X A 

MEMORY MAPS 

Table 9 is a memory map of the Level II BASIC ROM. It has an entry 
point for each of the Level II keywords. Hence, keywords which have 
not been discussed in this document can be investigated with the help 
of a disassembler. In addition to keywords, entry points for other 
logic useful to assembler programming are included. 

Table 10 lists the entry points for DISK BASIC keywords. It is useful 
to understand how DISK-BASIC is incorporated into Level II BASIC, (see 
the DEFUSR program in Section 7) . Each DISK-BASIC command passes 
control to a- unique address between 4152H-41A3H. If Level II BASIC is 
in use, these RAH addresses pass control to L3 ERROR (DISK BASIC 
only) . If DISK BASIC is in use, control passes to the appropriate 
routine. Table 10 lists these link addresses. In addition to these 
link addresses, 41A6H - 41E2H link to DISK BASIC code to perform a 
number of maintenance functions or extensions of Level II commands. 
These include USR at 41A9II, error processing for extended messages at 
41A6H, (can be used to trap errors - but the stack is lost) , and 
program initialization at 41BBII. 
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TMLE_JJLMEL_IIJ^»LiIAP 
(all addresses are in hexadecimal) 

0008 RST 8; TEST (HL)-((SP)). IF NOT ZERO.SN ERROR. THEN RST 10H 

0010 RST 1011: INC HL FIRST, WORK THRU STRING, IGNORE CR & SPACES. SET C IF NEXT CHARACTER 

A NUMBER, ELSE RESET C. 
0018 RST 18H; Z, C, & S FIXED FROM INTEGER COMPARE HL-DE. MAINTAINS BC, DE , HL. 
0020 RST 20H: IF NTF=8 C IS RESET ELSE C SET. A=NTF~3 FIXES S h Z FLAGS. MAINTAINS BC, 

DE, HL. 
002B KEYBOARD SCAN. RETURNS ASCII CHARACTER IN A. MAINTAINS BC, HL. 
0033 DISPLAY BYTE IN A ON VIDEO. MAINTAINS BC, HL. 

0049 GET CHARACTER FROM KEYBOARD & PUT IN A (WAITS FOR KEYSTROKE) . 
0060 DELAY LOOP. BC=68828*SECONDS. MAINTAINS D , HL. 
0133* POINT. SEE NOTES TO USE GRAPHICS. 
0.135* SET 
013 8* RESET 
01 9D* INKEY$ 
01 C9* CLS 
01 D3* RANDOM 



TAPE LOGIC 



01D9 WRITE WAVEFORM 

01 F8 TURN TAPE OFF 

0212 DEFINE DRIVE 

0235 READ BYTE 

0241 READ BIT 

0264 WRITE BYTE IN A TO TAPE 

0287 WRITE LEADER 

0296 LOOK FOR SYNC BYTE A5H. 

02 B2* SYSTEM - 

032A DISPLAY BYTE IN A USING DEVICE TYPE (409CH) 

0361 KEYBOARD TO STANDARD BUFFER & DISPLAY, (FOLLOW BY INC HL OR RSl 1011). 

03E3 (03E3 - 0457) KEYBOARD DRIVER 

0458 (0458 - 058B) : VIDEO DRIVER 

05D9 KEYBOARD TO BUFFER AT HL & DISPLAY. HL RETURNED UNCHANGED 

07 OB FADD: ACC=(HL) + ACC 

0710 FSUB: ACC=(HL) - ACC 

0713 FSUB: ACC=BCDE - ACC . 

0716 FADD: ACC=BCDE + ACC 

0809* LOG: ACC=LOG(ACC) . SINGLE IN AND OUT. 

0847 FMULT: ACC=BCDE*ACC 

08A2 FDIV: ACC=BCDE/ACC 

0977* ABS? K ACC=ABS(ACC). INTEGER IN L OUT, OR SINGLE IN & OUT. NTF REQUIRED & MAINTAINED. 
0982 ACC= -ACC: SINGLE ONLY. MAINTAINS BC, DE. 
098A* SGN: ACC & NTF INPUT FLOAT OR INTEGER. 

ACC=SGN(ACC)=-1,0,1 & NTF=02(ACC INTEGER). 
0994 CHECK SIGN OF ACC, FLOAT OR INTEGER. REQUIRES NTF. A=00 IF ACOO . A=01 IF ACC 

GREATER THAN 0. A=FF IF ACC LESS THAN 0. S & Z FLAGS ALSO REPRESENT ACC. 
09A4 LOAD SINGLE ACC TO STACK. TO RETRIEVE 

POP BC 

POP DE. 

LOAD MAINTAINS A,BC, HL. 
09B1 LOAD SINGLE: ACC=(HL) ,(HL+1 ) .... LEAVES HL=HL+4 \ 



I 
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G9B4 LOAD SINGLE: ACC=BCDE. MAINTAINS UL. 

09BF LOAD SINGLE: BCDE=ACC. 

09C2 LOAD SINGLE: BCDE=(llL) ,(HL+1 ) LEAVES HL=HL+4 



DATA MOVE ROUTINES 

BYTE COUNT FROM ADDRESS TO ADDRESS 

9D7 B DE HL 

9D6 A DE HL 

09D3 NTF DE HL \ , 

9D2 NTF HL DE 

9CE 4 DE HL 

09CB 4 ACC HL 

09F4 LOAD SINGLE OR DOUBLE(NEED NTF): ACC=DTEM 
09FC LOAD SINGLE OR DOUBLE (NEED NTF): DTEM=ACC 
OAOC SINGLE COMPARE: ACC-BCDE : FIXES S & Z FLAGS. 

0A3 9 INTEGER COMPARE: HL-DE: FIXES S & Z FLAGS. MAINTAINS BC. 
0A4F DOUBLE COMPARE: ACC-DTEM: FIXES S & Z FLAGS. 
0A7 8 DOUBLE COMPARE: DTEM-ACC: FIXES S & Z FLAGS. 
OA7F* CINT: SINGLE: ACC=CINT(ACC) : LARGEST INTEGER NOT GREATER THAN THE ARG. INTEGER: 

IMMEDIATE RETURN. 
0A9A INTEGER LOAD: ACC=HL: NTF=02: MAINTAINS BC,DE. 
0AB1* CSNG: INTEGER: 1-ST CONVERT TO SINGLE. 
SINGLE: NOTHING 

DOUBLE: '4/5'S ROUND TO SINGLE. 
OACC CONVERT INTEGER ACC TO SINGLE ACC. 
OACF CONVERT INTEGER HL TO SINGLE ACC. 

OADB* CDBL: ACC(DOUBLE) =ACC( INTEGER OR SINGLE). REQUIRES NTF 

OAF 4 TEST NTF=3 (STRING). IF STRING, RETURN, ELSE, ERROR. MAINTAINS BC.DE & HL. 
0B26* FIX: TRUNCATE FLOAT TO INTEGER & RETURN FLOAT. IF INTEGER, IMMEDIATE RETURN. IF 

STRING ERROR. 
OB37* INT: RETURNS LARGEST SINGLE PRECISION WHOLE NUMBER NOT GREATER 'MAN ARGUMENT. 

INTEGER, IMMEDIATE RETURN. STRING, ERROR. 
0BC7 SUB: ACC=HL=DE-HL: NTF=2 

ON OVERFLOW DOES IN SINGLE & RETURNS SINGLE. 
0BD2 ADD: SEE SUB. 
OBF2 MULT: SEE SUB. 

OCAC INTEGER ABS: ACC=1IL=ABS(HL) :NTF=2: MAINTAINS B,DE. SEE ABS AT 0977. 
0C51 INTEGER CHANGE SIGN: ACC=HL=-W,:NTF=2: MAINTAINS C,DE. 
0C6B INTEGER TO SINGLE: ACC( SINGLE) =DE( INTEGER) : SEE OACF. 
0C70 DSUB:( DOUBLE SUBTRACT): ACC=ACC-DTEM 
OC7 7 DADD: (DOUBLE ADD): ACC-DTEM + ACC 
0DA1 DMULT: ACC=ACC*DTEM 
0DE5 DDIV: ACC=ACC/DTEM 

0E65 ASCII CONSTANT TO ACC. RETURNS DOUBLE 
0E6C ASCII CONSTANT TO ACC. RETURNS LEAST NECESSARY TYPE 
OFSF POP THE STACK AND FADD. 
OFBD ACC TO ASCII 
I3E7* SQR IN & OUT SINGLE ACC. 
143 9* EXP IN & OUT SINGLE ACC. 
14C9* END IN & OUT SINGLE ACC. 

1541* COS LN & OUT SINGLE ACC. ANGLE IN RADIANS. 
1547* SIN IN & OUT SINGLE ACC. ANGLE IN RADIANS. 
15AS* TAN IN & OUT SINGLE ACC. ANGLE IN RADIANS. 
15BD* ATAN IN & OUT SINGLE ACC. ANGLE IN RADIANS. 
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1608' TABLE OF BASIC FUNCTION ADDRESSES. ADDRESSES CORRESPOND TO THE SECOND HALF OF THE 

TABLE AT 16 SDH. 
165D TABLE OF CHARS. MASK .HIGH ORDER BIT AND USE TABLE AT 1822 TO DECODE FUNCTION NAME. 
1822 2-ND TABLE OF BASIC FUNCTION ADDRESSES, ADDRESSES CORRESPOND TO THE FIRST HALF OF 

TOE TABLE AT 165DH. 

18C9 TABLE OF ERROR CODES ON PAGE B/ 1 OF LEVEL II BASIC MANUAL THIS TABLE CONTINUES TO 
1 8F6 . 

191E FROM HERE TO 1936 IS A TABLE. OF CHAR STRINGS. 'ERROR' 'IN' 'READY' 'BREAK' 

1A19 RE-ENTER BASIC WITH READY. 

1B49* NEW 

1BB3 PROMPT & KEYBOARD INPUT TO STANDARD BUFFER. 

1C90 COMPARE HL-DE UNSIGNED. FIXES Z FLAG ONLY. 

1C96 RST S LOGIC. COMPARE (HL)~((SP)) 

1CA1* FOR 

1D7 8 RST 10H LOGIC. 

1D91* RESTORE 

1DA9* STOP 

IDAS* END 

1DE4* CONT 

1DF7* TRON 

1DF8* TROFF 

1E00* DEFSTR 

1E03* DEFINT 

1E06* DEFSNG 

1E0 9* DEFDBL 

1E7A* CLEAR 

1EA3* RUN 

1EB.1* GOSUB 

1EC2* GOTO 

1EDE* RETURN 

1F05* DATA 

1F07* REM 

1F21* LET 

1F6C* ON 

1FAF* RESUME 

1FAF* ERROR 

200 8* AUTO 

203 9* IF 

2067* LPRINT 

206F* PRINT 

219A* INPUT 

21EF* READ 

22 B6* NEXT 

2337 EVALUATE EXPRESSION, STORE IN ACC 

2490 DIV: INTEGER DIVIDE: ACC=DE/HL: DE & HI, ARE FIRST CONVERTED TO SINGLE. ACC RESULTS 

IN SINGLE. 
24CF* ERR 
2 ADD* ERL 
24EB* VARVTR 
2540 ASCII VAR TO ACC 
2 5C4* NOT 

25D9 RST 20H LOGIC: COMPARE NTF--3. 
26 08* DIM 
260D ASCII VARIABLE LOCATION/ CREATION. RETURNS ADDRESSES. 



30- 



/ 



27C9* 


MEM 


27 FE* 


USR 


27D4* 


FRE 


27F5* 


FOS i 


2836* 


STR$ 1 


28A7 


DISPLAY A STRING ! 


2A03* 


LEN 


2A0F* 


ASC 


2A.1F* 


CHR$ 


2A2F* 


STRING? 


2A61* 


LEFT? 


,2A91* 


RIGHT? 


2A9A* 


MID? 


2AC5* 


VAL 


2AEF* 


INP 


2AFB* 


OUT 


2B29* 


LLIST 


2B2E* 


LIST 


2BC6* 


DELETE 


2BF5* 


CSAVE 


2C1F* 


CLOAD 


2CAA* 


PEEK 


2CB1* 


POKE 


2E60* 


EDIT 



* denotes Level II BASIC keywords. 
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TAB LE_10_DIS 1K_BASIC_ E NTR Y POINTS 





(acid res 


ses 


in 


Hexadt 


CODE ADDR 


ESS 




COMMAND 


558E 








FN 


5655 








DEF 


56C4 








CMD 


5714 








TIME? 


57 56 








LINE 


5 82F 








INSTR 


58E7 








& 


5E2D 








MK1$ 


5E3 








MKS$ 


5E3 3 








MKD$ 


5E4 6 








CVI 


5E4 9 








CVS 


5E4C 








CVD 


5F7B 








LOAD 


600E 








MERGE 


6 4 4 








SAVE 


6 06F 


, 






CLOSE 


6 0AB 








FIELD 


6 0E5 








RSET 


6 0E6 








LSET 


6 1 EE 








EOF 


6231 








LOC 


6 2 42 








LOF 


6 27E 


- 






PUT 


627C 








GET 


63 46 








NAME 


63 4 9 








OPEN 


63C0 








KILL 



LEVEL II LINK 



4155 

41 5B 

417 3 

4176 

41 A3 

419D 

4194 

41 6 A 

416D 

4170 

4152 

4158 

41 5E 

4188 

41 8B 

41 AQ 

4185 

417C 

419A 

4197 

4161 

4164 

416 7 
4182 

41 7 F 
41 8E 
4179 
4191 
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iLJBJ_JLJLJB_JLJ5 S 

The output port number 255 controls the 32 and 64 character display 
modes, the tape on/off function and the output tape voltage. ine 
contents of address 37E4H controls cassette #-1. Address s/t^n 
defined by CALL 0212H, (see Section 6). 



When, . . 



OUT 



(255) , A 



is executed, . the format of A is: 



7654 3210 



01 Puts + voltage to recorder. 
00 Puts zero voltage to recorder. 
10 Puts - voltage to recorder. 

1 Causes the tape drive to be turned on. 

For off. 

1 Tells video hardware to display in 32 
character mode. 

For 6 4 character mode. 

Creating sciuare wave music on the tape output line is a matter of 
outputting' the correct number to port. 255 at the correct time. An 
example of OUT instructions and timing loops is given in Example y. 
This routine orocesses data pointed to by the IX register. First, I)*, 
is loaded with the number of square wave cycles to be in _ the note. 
Plus (+) and minus (-) voltages are sustained by the timing logic at. 
0060H, (0060H uses the A and BC registers only) . 
timing delay is: 



The duration of 



T(in seconds) = (1.453 * 10 **(-5)) * BC 
The frequency (in cycles per second) if the note is given by 
F=l/(Tp + Tni) 

where Tp and Tm are durations (in seconds) of the plus and minus wave 
forms respectively. The duration of a note (in seconds) is given by: 

d = ( Tp + Tin ) * DE 

Finally, if N represents notes on the chromatic scale, with N=0 
corresponding to middle C, then their frequency is given by: 

F -EXP ( .05776 H + 5.567) 



IV 



S^l'iPJ^B_^J?Mii3J^JH3ye^Qtji_^v^jr^ 



10 


LD 


E, (IX) 


20 


LD 


D, (JX+1) 


30 DURA 


LD 


A, 5 


40 


OUT 


(255) ,A 


5 


LD 


C f (IX+2) 


6 


LD 


B, (IX+3) 


70 


CALL 


0060H 


80 


LD 


A, 6 


90 


OUT 


(255) ,A 


100 


LD 


C, (IX+4) 


110 


LD- 


B, (IX+5) 


120 


CALL 


0060K 


130 


DEC 


DE 


140 


LD 


A,D 


150 


OR 


E 


160 


JR 


NZ,DURA 



get number cycles 

+ waveform 

set up delay loop 

call delay loop 
- v/aveform 

set up delay loop 

call delay loop 
decrement duration 
counter 
test duration 

go repeat waveform 



To create music, one generally wants a certain note, N, and" duration, 
d. Solving for the above equations on the previous page, then: 

BCp + BCrn - EXP (-.05776N 



DE = 



5. 567) /1. 453 * 10 ** (-5) 
d*EXP (.05776N + 5.567) 



By splitting the total count BCp + BCrn (where BCp is the value of the 
BL register delay count for the plus waveform and BCrn is for th«=> 
negative waveform, respectively pointed to by IX + 2 and IX+4) 
notes having different tone result. Even splitting produces pure 
tones while uneven splitting produces more resonant tones 



APPENDIX C 
TAPE ■..AND BASIC MEMORY FORMATS 



These formats are useful to know when you only have one copy of a tape 
that will not load. Example 6 (see Section 6) lists a program that 
would read such a tape into memory, where it can be edited. The 
program will also write the data out to a new tape. None -of the 
formats discussed below include the 256 zero byte leader and A5H sync 
byte written by CALL 0287H. 

EDI7\.5M_S0iIRC:s.._l!APE FORMAT (from M co mmand 1 : 



(1) 



D3 

54 45 53 54 41 41 




header 

file name "TESTAA" up to 6 
characters. 

line #10 

data header (character blank] 

data (09 as tab) 

data trailer (character CR) 



1A 



end of file mark 



(1) Repeated record, 



55 

54 41 50 45 49 4F 

44 
(1) ( 90 47 



V 



XX XX XX XX . 
23 



header 

file name "TAPEIO" 

Code (78 implied end of file) 

length of data portion (00 is 
a full record of 256 bytes) 

points to address of data 
load (LSB,MSB) 

data bytes 

check sum (add together data 
and load point) 



78 

6B 43 



end of file mark 

execution address (LSB,MSB) 



(1) Repeated record, 



3 6- 



r 



£RilMX_ i_r J^JLP»PIL££>EilATS. 



character strinq 



repeated unit. 



ASCII comma 



When a character string is output it goes into the above character 
string field unmodified. Variable outputs are preceeded and followed 
by a blank. For example, PRINT Ht-1, EXP(l) gives a character string 
field: b2. 71828b. 
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D3 


D3 D3 


'• \ 


XX 




File name] 


XX 
XX 


LSB^I 
MSBJ 


Address of 
next line. 


XX 

XX 


LSB 
MSB 


Line 

number . 



XX 



XX 
CO 

otf 

00 



Line 



Zero 



Tape header record. 



A^ 



Memory format and tape 
repeated unit 



•vV 



Zero address denotes end of file. These 
zeros are also loaded to memory. 



For example, when CSAVET" is performed on the program 

10 BB 

20 CCD 

3 DDDD 
tape and memory appear 
D3 D3 D3 46 Tape only, 46H = "F". 

Memory & Tape Consents 




4 3 01 4- 



F0 42 
OA 00 

42 42 
00 

F8 4 2 
14 00 

43 43 44 
00 

01 43 
IE 

44 44 44 44 
00 

00 00 



Comment 



Line no. 10 



'BB' 



Line no. 20 
"CCD" 



Line no. 30 
"DDDD" 
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&-J£im£2JSMJLES^£RQQEMl 



The test program listed on the following 'page', serves two','- purposes. 
First, it allows many of the functions described in this manual to be 
verified by direct means.. Second, it demonstrates (and implicitly 
tests) data conversion routines, display routines and , data move 
routines. Except for initialization,, the routine returns to ..RET 
after CALLing a function.. At that point, all registers, ACC, NTF and 
DTEM are saved because they will be affected by the data conversion 
routines. Next, the NTF and ACC are displayed. The user is then 
prompted for the (decimal) address of the , test, function. This, is 
converted and stored at GOTO. The ACC, NTF and DTEM' are then^; 
restored. In normal programming, a dynamic address, (the function 
address at GOTO) would be transferred by JP. (HL) . But, in this case, 
that would disturb the HL register pair. Instead, the return address, 
ARET, is PUSH'd, ; then (GOTO) is PUSH'd. The registers are restored 
and a CALL is achieved by executing a RET. . , : ., . •'•■ ,. , ,. , 
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FIXAMPLE 10 A FUNCTION TFif.T PnOCPAM 



f 



1 B LA 


9T ECU] 


no? oo 


.'•ORG .. 


03i)0 


ED : 


0900 


1.1)1 


ooooo 


CAL.I 


060 


L.I.) • 


7 


LD 


OOSuO ARE 


L EXX 


090 


EX . - : 


902 


I...D 


0909 


l...[) 


0o2tl3 


L.D 


903 


CALL 


1. 


LD . .. 


1. .1. 


u:>, \ 


:l. 2 


\.0\ \ 


1,30 


CALL.; 


(i.l 'HO (J 


I I) : ' 


01.30 


' '-i'>; 3 


o 'i. s o ?.. 


33 1.) ' ! \ 


13 3 


331.3.. ' 


1 3 1 i.i 


3 L.D ■ 


01.313 


CALL. 


.1 6 


. CALL 


1.7 


CPiU... 


0:180 31 Ni 


9.3 ADDRESS: 


1 9 


. CALL 


030 Oi.i 

2 1 


: EST 
CALL. 


22 
2300 


CALL ' 

L.D . 


02900 


L.D ■ 


029 U 


I...D ' 


O230O 


1 D ; 


2/00 


CALL.. 


U23u0 


1. D ': 


290 


i. D ; 


2.905 


id" 


2.9.1 


I...D 


Ov.9 3 


LI.; 


2920 


CALL.. ' 


2: 


L.D 


3 "1 


PUSH 


3200 


LD 


330 


RUSH 


03 '10 


. EX 


o:>300 


EXX 


30 H 


RET 


0.3/0 "LAO I 


: dels 


M3MO0 (Nii 


l.> Id- 3 


0.:i9ljfl CuD) ALIO 


iL:v0 9 '33' I 


3 DELS 


II ; '. Ill) !l 


LOD 



' ' I : 

70 011 

START : •. ■ .- 
SPdTIAB'L-X?. ' 
lll..>.l.30 0ll 



09BI.H 



ACC GETS --9I/3 



IILv-'LOAFI! 

<TIL) v'L . 2 : . ." : '. . ■ " 

;saoe good rids 

AF3 AE' - , ;''... 
DE«9;L27H JERHM ADORERS' 
l-IL? IDLED ■ rrO ADDRESS ' . .' 
■Be 8 , . ' - ■" SBYTE COUNT 

9D71-I . 3SAUE DTBM ' •" ' 
DE*T I 1.1)11 3 : J FROM" ADDRESS 

III . TACC . : ■'. '-: : > HO ADDRESS 

Bv8 . ''•,;'■■ .-5 12: V IE COUNT ' ' . : 
, 9D7LI '-•• 5 3AOB ACC .•'•:: 

"A v (3i.iAI I I ) ■ ■■ ■ ' " ■ 

•21 Nil- '> 9, 3 3A0L NTR ' ' '.•' ', : 

A/TS ' : L 

■ 032ALI ' d)TSIT.AY. HT'E : ';■" • "/•'" 3 A • 

3*200 ... v 3 

032AII ? DISPLAY, BLANK . 7 : ..' 

OL'BDH ? ALT, 19) .ASC II 9 

28A/H dTLSL'l AY ASC XX 

EAR F.aHCLH a 00. 3 " ' [ 

1BB3H ? PROMPT. .«' KEYBOARD 10 ROLLER 

1 OH ■' ; 9 

' OC'X.n i 3 '7 ... >• ASC XT. TO ACC 

; OA/19 i '"' ' 7 -.■■JOINT 

I (Diiri) dil. OSAOE 3II0L ADDRESS ..7 .... 

DL ■■> I ACL ,. dROM ADDRESS'. 

! HL.vT I 11)11 '. 2 LIT.) ADDRESS • . • ' ■ 

13 3 .3 J BYTE IXJUNi 

091)70 ?RESlOi ; L' ACC 

A v ( '( ill i-" ) . . . . . 

9'liiAl- -U> -fl '- . . ■ ;i RESTORE NiF '' 

OF 3 IT: ii;;i-j ■ J I "ROM ADDRLSS 

I II... y 9.1 "7/3 ' 210 ADIJRESS ' 

By 3 ■ ■ , rBYTE COON " 

09D7LI i REST! iRE D'lF.M 

IIL*AEL0 

III.. d'-USLI L:L3 0RN ADDRLIiS 

III.. v CLIO [))■:. 



LIE 
AL ; (\\ 



dd.JSO CALL ADDRESS 



VMAKE CALL, 



l AL'> I 



■1 • 



